home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Grafik / Misc / ImageEnginer / ARexx / DeInterlace.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-10-12  |  1.5 KB  |  94 lines
  1. /*
  2.  
  3.    v1.00 DeInterlace (for Image Engineer)
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16.  
  17. if arg()=0 then exit
  18. x=arg(1)
  19. parse var x pic .
  20.  
  21.  
  22. PROJECT_INFO pic WIDTH
  23. picwidth=result
  24. PROJECT_INFO pic HEIGHT
  25. picheight=result
  26. PROJECT_INFO pic ZOOM
  27. piczoom=result
  28.  
  29.  
  30.  
  31. if exists("ie:alpha/lacelines.alpha") == "0" then do
  32.   'REQUEST "Please download VE-Extras.lha" "Ok"'
  33.   exit
  34. end
  35.  
  36.  
  37. OPEN "ie:alpha/lacelines.alpha" COLOUR
  38. lines=result
  39.  
  40. PROJECT_SET lines ZOOM piczoom
  41.  
  42. RESIZE lines picwidth picheight+1 TILE
  43. lacelines=result
  44. CLOSE lines
  45.  
  46.  
  47.  
  48.  
  49. MARK pic PRIMARY
  50. MARK lacelines SECONDARY
  51. COMPOSITE 0 0 MIN
  52. lacepic=result
  53.  
  54. SCALE lacepic picwidth trunc(picheight/2) FAST
  55. newpic=result
  56.  
  57. CLOSE lacepic
  58.  
  59.  
  60.  
  61. MARK pic PRIMARY
  62. MARK lacelines SECONDARY
  63. COMPOSITE 0 1 MIN
  64. lacesec=result
  65.  
  66. SCALE lacesec picwidth trunc(picheight/2) FAST
  67. newsec=result
  68.  
  69.  
  70. CLOSE lacesec
  71. CLOSE lacelines
  72.  
  73.  
  74.  
  75. exit
  76.  
  77. /*******************************************************************/
  78. /* This is where control goes when an error code is returned by IE */
  79. /* It puts up a message saying what happened and on which line     */
  80. /*******************************************************************/
  81. error:
  82. if RC=5 then do            /* Did the user just cancel us? */
  83.     IE_TO_FRONT
  84.     LAST_ERROR
  85.     'REQUEST "'||RESULT||'"'
  86.     exit
  87. end
  88. else do
  89.     IE_TO_FRONT
  90.     LAST_ERROR
  91.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  92.     exit
  93. end
  94.